home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / TYPE.FAS < prev    next >
Text File  |  1994-02-05  |  25KB  |  422 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CLOS::BUILT-IN-CLASS-P
  4.    REMOVE-OLD-DEFINITIONS #Y(CLOS::BUILT-IN-CLASS-P #9Y(01 00 00 00 00 02 00 19 02))
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CLOS::SUBCLASSP
  7.    REMOVE-OLD-DEFINITIONS #Y(CLOS::SUBCLASSP #9Y(02 00 00 00 00 03 00 19 03))
  8.   )
  9. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TYPE-ERROR
  10.    REMOVE-OLD-DEFINITIONS
  11.    #Y(TYPE-ERROR #11Y(02 00 00 00 00 03 D5 AA AA 5E 02) "~S: invalid type specification ~S")
  12.   )
  13. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TYPEP
  14.    REMOVE-OLD-DEFINITIONS
  15.    #Y(TYPEP
  16.       #315Y(02 00 00 00 00 03 5F A9 8B 03 80 97 A9 D5 37 01 7D 76 00 1B 0A A9 D6 37 01 7D 76 00 1C
  17.             80 F0 14 AB 35 01 19 04 AA A8 AB 5C 01 1A 80 CE A9 AB 31 2E 19 04 AA 6E 25 99 1A 80 D0
  18.             E1 D8 9C 57 74 5E 02 AA 91 03 37 03 89 B3 13 02 19 04 9A 57 74 8B 03 68 9A 57 56 59 14
  19.             AB 35 01 1B 6D 00 19 04 AA 9B 57 74 30 FE 19 04 AA 9B 57 74 2F 03 54 19 04 91 02 5F 1A
  20.             0F 91 02 5F 1A 1B 83 01 00 AC A8 87 03 17 7F 01 A8 89 92 72 02 19 06 83 01 00 AC A8 86
  21.             03 75 7F 01 A8 89 92 72 00 19 06 14 AB 9C 57 97 01 04 9A 1F 80 5B 90 02 8B 03 80 55 90
  22.             02 24 0A 07 A9 6E 41 23 0B FF 93 90 02 23 0D FF 82 90 02 24 0E 07 A9 6E 41 23 0B FF 94
  23.             90 02 24 0F 07 A9 6E 41 23 0B FF 90 90 02 23 10 FF 93 90 02 23 11 FF 92 90 02 D6 37 01
  24.             7D 76 00 1B FF AE 90 02 D7 37 01 7D 76 00 1C 3D AA A8 9C 14 72 01 2F 03 19 04 A9 85 06
  25.             2F AA 6E 25 9B 14 2F 08 19 04 A9 D7 37 01 7D 76 00 1B FF 0C A9 D9 37 01 8A 76 FF 0C A9
  26.             DA 37 01 7D 76 00 1C 0B 14 85 06 07 A7 6B 07 9B 21 FE FE D8 AA 2F 09 19 04
  27.            )
  28.       TYPE-SYMBOL TYPE-LIST DEFTYPE-EXPANDER TYPEP DEFSTRUCT-DESCRIPTION CLOS::CLASS CLOS::CLASS-P
  29.       CLOS:CLASS-NAME CLOS::SUBCLASSP TYPE-ERROR SATISFIES 2.
  30.       "~S: argument to SATISFIES must be a symbol: ~S" MEMBER EQL NOT AND OR
  31.   )  )
  32. #Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) ARRAY TYPE-SYMBOL #.#'ARRAYP)
  33. #Y(#:TOP-LEVEL-FORM-7 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) ATOM TYPE-SYMBOL #.#'ATOM)
  34. #Y(#:TOP-LEVEL-FORM-8 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) BIGNUM TYPE-SYMBOL
  35.    #Y(TYPE-SYMBOL-BIGNUM #19Y(01 00 00 00 00 02 A8 31 09 1E 06 A8 31 0A 54 19 02 19 02))
  36.   )
  37. #Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) BIT TYPE-SYMBOL
  38.    #Y(TYPE-SYMBOL-BIT #18Y(01 00 00 00 00 02 A8 C0 55 1D 05 A8 C1 55 19 02 19 02) 0. 1.)
  39.   )
  40. #Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) BIT-VECTOR TYPE-SYMBOL
  41.    #.#'BIT-VECTOR-P
  42.   )
  43. #Y(#:TOP-LEVEL-FORM-11 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) CHARACTER TYPE-SYMBOL
  44.    #.#'CHARACTERP
  45.   )
  46. #Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) COMMON TYPE-SYMBOL #.#'COMMONP)
  47. #Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) COMPILED-FUNCTION TYPE-SYMBOL
  48.    #.#'COMPILED-FUNCTION-P
  49.   )
  50. #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) COMPLEX TYPE-SYMBOL
  51.    #.#'COMPLEXP
  52.   )
  53. #Y(#:TOP-LEVEL-FORM-15 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) CONS TYPE-SYMBOL #.#'CONSP)
  54. #Y(#:TOP-LEVEL-FORM-16 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) DOUBLE-FLOAT TYPE-SYMBOL
  55.    #.#'DOUBLE-FLOAT-P
  56.   )
  57. #Y(#:TOP-LEVEL-FORM-17 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) FIXNUM TYPE-SYMBOL #.#'FIXNUMP)
  58. #Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) FLOAT TYPE-SYMBOL #.#'FLOATP)
  59. #Y(#:TOP-LEVEL-FORM-19 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) FUNCTION TYPE-SYMBOL
  60.    #.#'FUNCTIONP
  61.   )
  62. #Y(#:TOP-LEVEL-FORM-20 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) HASH-TABLE TYPE-SYMBOL
  63.    #.#'HASH-TABLE-P
  64.   )
  65. #Y(#:TOP-LEVEL-FORM-21 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) INTEGER TYPE-SYMBOL
  66.    #.#'INTEGERP
  67.   )
  68. #Y(#:TOP-LEVEL-FORM-22 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) KEYWORD TYPE-SYMBOL
  69.    #.#'KEYWORDP
  70.   )
  71. #Y(#:TOP-LEVEL-FORM-23 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) LIST TYPE-SYMBOL #.#'LISTP)
  72. #Y(#:TOP-LEVEL-FORM-24 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) LONG-FLOAT TYPE-SYMBOL
  73.    #.#'LONG-FLOAT-P
  74.   )
  75. #Y(#:TOP-LEVEL-FORM-25 #13Y(00 00 00 00 00 01 5F D5 D6 31 7A 19 01) TYPE-SYMBOL
  76.    #Y(TYPE-SYMBOL-NIL #9Y(01 00 00 00 00 02 00 19 02))
  77.   )
  78. #Y(#:TOP-LEVEL-FORM-26 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) NULL TYPE-SYMBOL #.#'NULL)
  79. #Y(#:TOP-LEVEL-FORM-27 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) NUMBER TYPE-SYMBOL #.#'NUMBERP)
  80. #Y(#:TOP-LEVEL-FORM-28 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) PACKAGE TYPE-SYMBOL
  81.    #.#'PACKAGEP
  82.   )
  83. #Y(#:TOP-LEVEL-FORM-29 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) PATHNAME TYPE-SYMBOL
  84.    #.#'PATHNAMEP
  85.   )
  86. #Y(#:TOP-LEVEL-FORM-30 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) RANDOM-STATE TYPE-SYMBOL
  87.    #.#'RANDOM-STATE-P
  88.   )
  89. #Y(#:TOP-LEVEL-FORM-31 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) RATIO TYPE-SYMBOL
  90.    #Y(TYPE-SYMBOL-RATIO #19Y(01 00 00 00 00 02 A8 31 0B 1E 06 A8 31 09 54 19 02 19 02))
  91.   )
  92. #Y(#:TOP-LEVEL-FORM-32 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) RATIONAL TYPE-SYMBOL
  93.    #.#'RATIONALP
  94.   )
  95. #Y(#:TOP-LEVEL-FORM-33 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) READTABLE TYPE-SYMBOL
  96.    #.#'READTABLEP
  97.   )
  98. #Y(#:TOP-LEVEL-FORM-34 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) REAL TYPE-SYMBOL #.#'REALP)
  99. #Y(#:TOP-LEVEL-FORM-35 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SEQUENCE TYPE-SYMBOL
  100.    #.#'SEQUENCEP
  101.   )
  102. #Y(#:TOP-LEVEL-FORM-36 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SHORT-FLOAT TYPE-SYMBOL
  103.    #.#'SHORT-FLOAT-P
  104.   )
  105. #Y(#:TOP-LEVEL-FORM-37 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIMPLE-ARRAY TYPE-SYMBOL
  106.    #.#'SIMPLE-ARRAY-P
  107.   )
  108. #Y(#:TOP-LEVEL-FORM-38 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIMPLE-BIT-VECTOR TYPE-SYMBOL
  109.    #.#'SIMPLE-BIT-VECTOR-P
  110.   )
  111. #Y(#:TOP-LEVEL-FORM-39 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIMPLE-STRING TYPE-SYMBOL
  112.    #.#'SIMPLE-STRING-P
  113.   )
  114. #Y(#:TOP-LEVEL-FORM-40 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIMPLE-VECTOR TYPE-SYMBOL
  115.    #.#'SIMPLE-VECTOR-P
  116.   )
  117. #Y(#:TOP-LEVEL-FORM-41 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SINGLE-FLOAT TYPE-SYMBOL
  118.    #.#'SINGLE-FLOAT-P
  119.   )
  120. #Y(#:TOP-LEVEL-FORM-42 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) STANDARD-CHAR TYPE-SYMBOL
  121.    #Y(TYPE-SYMBOL-STANDARD-CHAR #18Y(01 00 00 00 00 02 A8 31 18 1E 05 A8 30 1B 19 02 19 02))
  122.   )
  123. #Y(#:TOP-LEVEL-FORM-43 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) CLOS:STANDARD-GENERIC-FUNCTION
  124.    TYPE-SYMBOL #.#'CLOS::GENERIC-FUNCTION-P
  125.   )
  126. #Y(#:TOP-LEVEL-FORM-44 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) CLOS:STANDARD-OBJECT
  127.    TYPE-SYMBOL #.#'CLOS::STD-INSTANCE-P
  128.   )
  129. #Y(#:TOP-LEVEL-FORM-45 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) STREAM TYPE-SYMBOL #.#'STREAMP)
  130. #Y(#:TOP-LEVEL-FORM-46 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) STRING TYPE-SYMBOL #.#'STRINGP)
  131. #Y(#:TOP-LEVEL-FORM-47 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) STRING-CHAR TYPE-SYMBOL
  132.    #Y(TYPE-SYMBOL-STRING-CHAR #18Y(01 00 00 00 00 02 A8 31 18 1E 05 A8 30 1D 19 02 19 02))
  133.   )
  134. #Y(#:TOP-LEVEL-FORM-48 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) STRUCTURE TYPE-SYMBOL
  135.    #Y(TYPE-SYMBOL-STRUCTURE
  136.       #30Y(01 00 00 00 00 02 A8 6E 24 A7 31 03 1E 0E A7 D5 37 01 31 76 1E 06 A7 AA 31 2E 19 03 19
  137.            03
  138.           )
  139.       DEFSTRUCT-DESCRIPTION
  140.   )  )
  141. #Y(#:TOP-LEVEL-FORM-49 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SYMBOL TYPE-SYMBOL #.#'SYMBOLP)
  142. #Y(#:TOP-LEVEL-FORM-50 #13Y(00 00 00 00 00 01 60 D5 D6 31 7A 19 01) TYPE-SYMBOL
  143.    #Y(TYPE-SYMBOL-T #9Y(01 00 00 00 00 02 02 19 02))
  144.   )
  145. #Y(#:TOP-LEVEL-FORM-51 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) VECTOR TYPE-SYMBOL #.#'VECTORP)
  146. #Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  147.    UPGRADED-ARRAY-ELEMENT-TYPE REMOVE-OLD-DEFINITIONS
  148.    #Y(UPGRADED-ARRAY-ELEMENT-TYPE
  149.       #93Y(01 00 00 00 00 02 99 25 00 3F 99 19 02 C3 19 05 C5 19 05 C7 19 05 C9 19 05 CB 19 05 CD
  150.            19 05 A7 6E C6 A7 D7 8C 01 2F 65 A7 D9 8C 01 2F 62 A7 DB 8C 01 2F 5F A7 DD 8C 01 2F 5C
  151.            A7 DF 8C 01 2F 59 A7 E1 8C 01 2F 56 02 19 05 A8 2E 01 41 02 A8 8B 09 08 A8 8A 86 04 A7
  152.            8A 09 45 02 19 04
  153.           )
  154.       #S(HASH-TABLE EQ (T . 1.) (STRING-CHAR . 1.) (BIT . 1.)) SUBTYPE-INTEGER 1. BIT 2.
  155.       (UNSIGNED-BYTE 2.) 4. (UNSIGNED-BYTE 4.) 8. (UNSIGNED-BYTE 8.) 16. (UNSIGNED-BYTE 16.) 32.
  156.       (UNSIGNED-BYTE 32.)
  157.   )  )
  158. #Y(#:TOP-LEVEL-FORM-53 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) ARRAY TYPE-LIST
  159.    #Y(TYPE-LIST-ARRAY
  160.       #74Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA 31 1C 1E 33 A9 23 00 0A AA 6D 02 AA
  161.            6B 01 30 FF 1E 25 A8 C0 55 1D 20 A8 8A 05 14 A8 6E 41 AB 6D 03 30 FE 1E 12 D7 A9 AC 6D
  162.            05 32 01 26 19 04 A8 AB 6D 03 30 FE 19 04 19 04
  163.           )
  164.       * UPGRADED-ARRAY-ELEMENT-TYPE
  165.       #Y(TYPE-LIST-ARRAY-1 #19Y(02 00 00 00 00 03 A9 C0 55 1D 06 A9 A9 30 FE 19 03 19 03) *)
  166.   )  )
  167. #Y(#:TOP-LEVEL-FORM-54 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIMPLE-ARRAY TYPE-LIST
  168.    #Y(TYPE-LIST-SIMPLE-ARRAY
  169.       #74Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA 31 1D 1E 33 A9 23 00 0A AA 6D 02 AA
  170.            6B 01 30 FF 1E 25 A8 C0 55 1D 20 A8 8A 05 14 A8 6E 41 AB 6D 03 30 FE 1E 12 D7 A9 AC 6D
  171.            05 32 01 26 19 04 A8 AB 6D 03 30 FE 19 04 19 04
  172.           )
  173.       * UPGRADED-ARRAY-ELEMENT-TYPE
  174.       #Y(TYPE-LIST-SIMPLE-ARRAY-1 #19Y(02 00 00 00 00 03 A9 C0 55 1D 06 A9 A9 30 FE 19 03 19 03) *)
  175.   )  )
  176. #Y(#:TOP-LEVEL-FORM-55 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) VECTOR TYPE-LIST
  177.    #Y(TYPE-LIST-VECTOR
  178.       #51Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA 31 1F 1E 1C A9 23 00 0A AA 6D 02 AA
  179.            6B 01 30 FF 1E 0E A8 C0 55 1D 09 AA D7 6D 04 A9 30 FE 19 04 19 04
  180.           )
  181.       * UPGRADED-ARRAY-ELEMENT-TYPE 0.
  182.   )  )
  183. #Y(#:TOP-LEVEL-FORM-56 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIMPLE-VECTOR TYPE-LIST
  184.    #Y(TYPE-LIST-SIMPLE-VECTOR
  185.       #32Y(01 00 01 00 00 08 3A 01 02 C0 F7 A9 31 20 1E 0E A8 C0 55 1D 09 A8 AA D6 6D 04 30 FE 19
  186.            03 19 03
  187.           )
  188.       * 0.
  189.   )  )
  190. #Y(#:TOP-LEVEL-FORM-57 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) COMPLEX TYPE-LIST
  191.    #Y(TYPE-LIST-COMPLEX
  192.       #48Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 9A F7 AA 31 12 1E 19 A9 23 00 08 AA 6E B8 AA
  193.            2F 01 1E 0D A8 C0 55 1D 08 AA 6E B9 A9 2F 01 19 04 19 04
  194.           )
  195.       * TYPEP
  196.   )  )
  197. #Y(#:TOP-LEVEL-FORM-58 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) INTEGER TYPE-LIST
  198.    #Y(TYPE-LIST-INTEGER
  199.       #26Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA AA AA D6 D7 2C 05 03 19 04) *
  200.       #.#'INTEGERP INTEGER TYPEP-NUMBER-TEST
  201.   )  )
  202. #Y(#:TOP-LEVEL-FORM-59 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TYPEP-NUMBER-TEST
  203.    REMOVE-OLD-DEFINITIONS
  204.    #Y(TYPEP-NUMBER-TEST
  205.       #113Y(05 00 00 00 00 06 A9 AD 35 01 1E 80 62 AB 23 00 1D A9 AC 35 01 1B 38 9C 1F 3E 9C 57 1B
  206.             3A A9 90 05 35 01 1C 33 90 04 AD 32 01 2D 1E 80 41 AA C0 55 1D 3C A9 AB 35 01 1B 27 9B
  207.             1F 0B 9B 57 1B 07 A9 90 04 35 01 1B 20 D8 D7 AA AB AC AF 5E 05 AB AD 32 01 2F 1E 19 1A
  208.             56 D6 D7 AA AB AC B0 5E 05 AA AD 32 01 30 19 06 90 03 AD 32 01 2E 19 06 19 06
  209.            )
  210.       * "~S: argument to ~S must be *, ~S or a list of ~S: ~S" TYPEP
  211.       "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
  212.   )  )
  213. #Y(#:TOP-LEVEL-FORM-60 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) MOD TYPE-LIST
  214.    #Y(TYPE-LIST-MOD
  215.       #36Y(02 00 00 00 00 03 A8 8B 09 13 A9 31 09 1E 13 D7 AA 32 01 2F 1E 0C A9 A9 32 01 2D 19 03
  216.            D5 D6 AA 5E 02 19 03
  217.           )
  218.       "~S: argument to MOD must be an integer: ~S" TYPEP 0.
  219.   )  )
  220. #Y(#:TOP-LEVEL-FORM-61 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIGNED-BYTE TYPE-LIST
  221.    #Y(TYPE-LIST-SIGNED-BYTE
  222.       #45Y(01 00 01 00 00 08 3A 01 02 C0 F7 A8 23 00 04 A8 8B 09 13 A9 31 09 1E 13 A8 C0 55 1D 0E
  223.            A9 6E C6 A9 32 01 2D 19 03 D6 D7 AA 5E 02 19 03
  224.           )
  225.       * "~S: argument to SIGNED-BYTE must be an integer or * : ~S" TYPEP
  226.   )  )
  227. #Y(#:TOP-LEVEL-FORM-62 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) UNSIGNED-BYTE TYPE-LIST
  228.    #Y(TYPE-LIST-UNSIGNED-BYTE
  229.       #51Y(01 00 01 00 00 08 3A 01 02 C0 F7 A8 23 00 04 A8 8B 09 19 A9 31 09 1E 19 A9 31 86 54 1E
  230.            13 A8 C0 55 1D 0E A9 6E C6 A9 32 01 2F 19 03 D6 D7 AA 5E 02 19 03
  231.           )
  232.       * "~S: argument to UNSIGNED-BYTE must be an integer or * : ~S" TYPEP
  233.   )  )
  234. #Y(#:TOP-LEVEL-FORM-63 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) REAL TYPE-LIST
  235.    #Y(TYPE-LIST-REAL
  236.       #26Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA AA AA D6 D7 2C 05 03 19 04) *
  237.       #.#'REALP REAL TYPEP-NUMBER-TEST
  238.   )  )
  239. #Y(#:TOP-LEVEL-FORM-64 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) RATIONAL TYPE-LIST
  240.    #Y(TYPE-LIST-RATIONAL
  241.       #26Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA AA AA D6 D7 2C 05 03 19 04) *
  242.       #.#'RATIONALP RATIONAL TYPEP-NUMBER-TEST
  243.   )  )
  244. #Y(#:TOP-LEVEL-FORM-65 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) FLOAT TYPE-LIST
  245.    #Y(TYPE-LIST-FLOAT
  246.       #26Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA AA AA D6 D7 2C 05 03 19 04) *
  247.       #.#'FLOATP FLOAT TYPEP-NUMBER-TEST
  248.   )  )
  249. #Y(#:TOP-LEVEL-FORM-66 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SHORT-FLOAT TYPE-LIST
  250.    #Y(TYPE-LIST-SHORT-FLOAT
  251.       #26Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA AA AA D6 D7 2C 05 03 19 04) *
  252.       #.#'SHORT-FLOAT-P SHORT-FLOAT TYPEP-NUMBER-TEST
  253.   )  )
  254. #Y(#:TOP-LEVEL-FORM-67 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SINGLE-FLOAT TYPE-LIST
  255.    #Y(TYPE-LIST-SINGLE-FLOAT
  256.       #26Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA AA AA D6 D7 2C 05 03 19 04) *
  257.       #.#'SINGLE-FLOAT-P SINGLE-FLOAT TYPEP-NUMBER-TEST
  258.   )  )
  259. #Y(#:TOP-LEVEL-FORM-68 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) DOUBLE-FLOAT TYPE-LIST
  260.    #Y(TYPE-LIST-DOUBLE-FLOAT
  261.       #26Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA AA AA D6 D7 2C 05 03 19 04) *
  262.       #.#'DOUBLE-FLOAT-P DOUBLE-FLOAT TYPEP-NUMBER-TEST
  263.   )  )
  264. #Y(#:TOP-LEVEL-FORM-69 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) LONG-FLOAT TYPE-LIST
  265.    #Y(TYPE-LIST-LONG-FLOAT
  266.       #26Y(01 00 02 00 00 0D 3A 02 02 C0 F8 3A 01 02 C0 F7 AA AA AA D6 D7 2C 05 03 19 04) *
  267.       #.#'LONG-FLOAT-P LONG-FLOAT TYPEP-NUMBER-TEST
  268.   )  )
  269. #Y(#:TOP-LEVEL-FORM-70 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) STRING TYPE-LIST
  270.    #Y(TYPE-LIST-STRING
  271.       #32Y(01 00 01 00 00 08 3A 01 02 C0 F7 A9 31 04 1E 0E A8 C0 55 1D 09 A8 AA D6 6D 04 30 FE 19
  272.            03 19 03
  273.           )
  274.       * 0.
  275.   )  )
  276. #Y(#:TOP-LEVEL-FORM-71 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIMPLE-STRING TYPE-LIST
  277.    #Y(TYPE-LIST-SIMPLE-STRING
  278.       #32Y(01 00 01 00 00 08 3A 01 02 C0 F7 A9 31 21 1E 0E A8 C0 55 1D 09 A8 AA D6 6D 04 30 FE 19
  279.            03 19 03
  280.           )
  281.       * 0.
  282.   )  )
  283. #Y(#:TOP-LEVEL-FORM-72 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) BIT-VECTOR TYPE-LIST
  284.    #Y(TYPE-LIST-BIT-VECTOR
  285.       #32Y(01 00 01 00 00 08 3A 01 02 C0 F7 A9 31 1E 1E 0E A8 C0 55 1D 09 A8 AA D6 6D 04 30 FE 19
  286.            03 19 03
  287.           )
  288.       * 0.
  289.   )  )
  290. #Y(#:TOP-LEVEL-FORM-73 #13Y(00 00 00 00 00 01 D5 D6 D7 31 7A 19 01) SIMPLE-BIT-VECTOR TYPE-LIST
  291.    #Y(TYPE-LIST-SIMPLE-BIT-VECTOR
  292.       #32Y(01 00 01 00 00 08 3A 01 02 C0 F7 A9 31 22 1E 0E A8 C0 55 1D 09 A8 AA D6 6D 04 30 FE 19
  293.            03 19 03
  294.           )
  295.       * 0.
  296.   )  )
  297. #Y(#:TOP-LEVEL-FORM-74 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) %THE
  298.    REMOVE-OLD-DEFINITIONS
  299.    #Y(%THE
  300.       #297Y(02 00 00 00 00 03 99 1F 05 90 01 23 00 0B 9A 20 81 12 00 14 A9 2F 03 19 03 A9 91 02 1A
  301.             10 99 1F 80 7A 90 01 90 01 87 03 80 72 7F 01 7F 00 98 1F 09 90 00 D6 D7 37 02 89 B3 64
  302.             98 1F 3F 90 00 24 04 3A 1A 2A 99 1F 80 43 1A 80 51 00 19 06 A9 90 02 87 03 77 7F 01 16
  303.             01 1A 31 7F 01 20 70 DB AC 5E 01 99 1F 09 90 01 90 01 87 03 30 7F 01 7F 00 98 1F 09 90
  304.             00 D6 D7 37 02 89 B3 66 98 1F 45 90 00 A7 23 05 55 A7 24 07 55 16 01 98 1F 80 92 90 00
  305.             24 07 38 7F 00 A8 6E 41 8B 87 03 00 19 05 5F 1A 80 5F DB AD 5E 01 00 19 08 7F 01 16 01
  306.             1A 80 70 A9 1A 10 00 19 07 90 00 A9 D7 37 02 89 B3 74 98 57 57 F6 98 20 70 16 02 1A 80
  307.             55 98 1F 80 51 DB AB 5E 01 90 01 A7 8B 08 49 A7 6E 41 24 08 43 90 00 8B 03 FF BD 90 00
  308.             6E 7E 67 09 6D D3 AB A8 37 01 6E 77 9A 57 74 87 03 FF AC A7 80 02 16 02 7F 01 99 1F 09
  309.             90 01 D6 D7 37 02 89 B3 46 99 1F 06 90 01 23 0A FF 93 A9 E0 37 01 8B 77 FF 92 16 01 02
  310.             19 05 9A 56 1A FE EA
  311.            )
  312.       VALUES #.LAMBDA-LIST-KEYWORDS #.#'EQ TYPEP &OPTIONAL &REST "Invalid type specifier ~S" &KEY
  313.       2. *KEYWORD-PACKAGE* &ALLOW-OTHER-KEYS :ALLOW-OTHER-KEYS
  314.   )  )
  315. #Y(#:TOP-LEVEL-FORM-75 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CANONICALIZE-TYPE
  316.    REMOVE-OLD-DEFINITIONS
  317.    #Y(CANONICALIZE-TYPE
  318.       #402Y(01 00 00 00 00 02 A8 8A 03 24 99 1F 81 7D 90 01 8B 03 81 77 90 01 D5 37 01 6E 76 8F 00
  319.             80 6C 14 9B 14 72 01 28 01 04 5E 14 AA 5C 01 1A 73 A8 D5 37 01 6E 76 8E 00 71 9A 25 01
  320.             32 C2 19 03 C3 19 03 C4 19 03 C5 19 03 C6 19 03 C7 19 03 C8 19 03 C9 19 03 CA 19 03 CB
  321.             19 03 CC 19 03 CD 19 03 CE 19 03 CF 19 03 A9 77 01 28 01 04 FF 99 A9 E5 37 01 7D 76 00
  322.             1C 80 F7 14 85 11 80 F2 A7 84 12 80 ED A7 6B 13 9B 22 80 E6 15 19 02 9A 56 25 14 80 DD
  323.             03 15 19 03 EB 9B 57 74 5C 02 19 03 9A 57 74 A7 8B 09 06 A7 EC 8C 01 30 04 ED AB 2F 19
  324.             EF 03 17 1A 80 91 03 1A 19 04 9A 57 56 1B 02 03 1B 14 A7 23 1B 70 A7 8B 09 04 A7 8A 85
  325.             04 ED AB 2F 19 F1 93 01 6E 8D EF A8 32 00 34 1A 80 84 03 1D 19 04 9A 57 56 1B 02 03 1B
  326.             14 A7 23 1B 70 A7 8B 09 06 A7 EC 8C 01 30 04 ED AB 2F 19 F1 A8 6E 8D EF 03 17 1A 80 5C
  327.             9A 57 56 1B 02 03 1B 14 03 1E 1A 22 9A 57 56 1B 02 03 1B 14 03 1E 1A 25 9A 57 56 1B 02
  328.             03 1B 14 F3 02 1A 1C 9A 57 56 1B 02 03 1B 14 03 21 14 03 1F 1A 0D 9A 57 56 1B 02 03 1B
  329.             14 03 21 14 03 20 14 A9 77 01 5C 03 19 04 9A 57 56 1B 02 03 1B 14 9B 57 57 56 1B 02 03
  330.             1B 14 61 21 9A 14 A9 77 01 5C 03 19 05 9A 57 1C FF 23 9A 19 03 A8 6B 13 28 01 03 FE 8D
  331.             A8 85 12 0B A8 6B 13 E5 37 01 6E 76 9A 21 69 99 19 02 A8 84 11 6A 00 19 02
  332.            )
  333.       DEFTYPE-EXPANDER
  334.       #S(HASH-TABLE EQ (LONG-FLOAT . 43.) (DOUBLE-FLOAT . 43.) (SINGLE-FLOAT . 43.)
  335.          (SHORT-FLOAT . 43.) (FLOAT . 43.) (RATIONAL . 43.) (INTEGER . 43.) (REAL . 43.)
  336.          (COMPLEX . 43.) (SIMPLE-VECTOR . 43.) (VECTOR . 43.) (SIMPLE-STRING . 43.) (STRING . 43.)
  337.          (SIMPLE-BIT-VECTOR . 43.) (BIT-VECTOR . 43.) (SIMPLE-ARRAY . 43.) (ARRAY . 43.) (T . 40.)
  338.          (STRING-CHAR . 37.) (STANDARD-CHAR . 34.) (SEQUENCE . 31.) (RATIO . 28.) (NULL . 25.)
  339.          (NIL . 22.) (LIST . 19.) (KEYWORD . 16.) (FIXNUM . 13.) (COMMON . 10.) (BIT . 7.)
  340.          (BIGNUM . 4.) (ATOM . 1.)
  341.         )
  342.       (NOT CONS) (AND INTEGER (NOT FIXNUM)) (INTEGER 0. 1.)
  343.       (OR CONS SYMBOL NUMBER ARRAY STANDARD-CHAR STREAM PACKAGE HASH-TABLE READTABLE PATHNAME
  344.        RANDOM-STATE STRUCTURE
  345.       )
  346.       (INTEGER #.MOST-NEGATIVE-FIXNUM #.MOST-POSITIVE-FIXNUM) (AND SYMBOL (SATISFIES KEYWORDP))
  347.       (OR CONS (MEMBER NIL)) (OR) (MEMBER NIL) (AND RATIONAL (NOT INTEGER)) (OR LIST VECTOR)
  348.       (AND CHARACTER (SATISFIES STRING-CHAR-P) (SATISFIES STANDARD-CHAR-P))
  349.       (AND CHARACTER (SATISFIES STRING-CHAR-P)) (AND) CLOS::CLASS CLOS::CLASS-P
  350.       CLOS::BUILT-IN-CLASS-P CLOS:CLASS-NAME
  351.       #S(HASH-TABLE EQ (VECTOR . 190.) (STRING . 169.) (BIT-VECTOR . 154.) (SIMPLE-VECTOR . 142.)
  352.          (SIMPLE-STRING . 130.) (SIMPLE-BIT-VECTOR . 118.) (UNSIGNED-BYTE . 82.)
  353.          (SIGNED-BYTE . 41.) (MOD . 14.) (EQL . 6.) (MEMBER . 218.)
  354.         )
  355.       (OR) MEMBER 0. SUBTYPEP TYPE-ERROR INTEGER * 2. (INTEGER 0. *) SIMPLE-ARRAY BIT STRING-CHAR
  356.       ARRAY
  357.   )  )
  358. #Y(#:TOP-LEVEL-FORM-76 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SUBTYPEP
  359.    REMOVE-OLD-DEFINITIONS
  360.    #Y(SUBTYPEP
  361.       #919Y(02 00 00 00 00 03 A9 2E 00 F8 A8 2E 00 F7 A9 A9 88 FF 31 9A 1F 16 90 02 23 01 2D 90 02
  362.             24 03 06 A9 6E 41 23 04 3D 90 02 23 05 80 50 99 1F 80 D4 90 01 24 03 80 64 A8 6E 41 24
  363.             04 80 5D 5F 00 14 3F 02 19 03 02 1A 81 1A 91 02 5F 1A 0E 00 1A 82 2A 83 01 00 14 AB 87
  364.             02 74 7F 01 A8 89 92 72 02 1A 82 18 99 1F 57 90 01 24 03 52 A8 6E 41 24 04 4C 99 57 74
  365.             9B 57 74 28 02 05 FF 8A 91 02 5F 1A 11 83 01 00 14 AB 27 FF 7D 41 02 8F 01 26 16 02 7F
  366.             01 A8 89 92 6B 02 1A 81 E1 90 01 24 06 80 5F 91 01 5F A8 88 92 19 83 01 00 AB A8 27 FF
  367.             57 41 02 8E 01 06 5F A8 3F 02 19 07 16 02 7F 01 1A 63 02 1A 81 B7 02 1A 81 B3 91 01 5F
  368.             A8 88 92 27 83 01 00 AB A8 27 FF 2F 1B 6B 7F 01 1A 6E 91 02 5F 1A 10 02 1A 81 95 83 01
  369.             00 14 AB 27 FF 18 1B 72 7F 01 A8 89 92 70 5F 00 1A 81 82 02 1A 80 63 90 01 23 05 44 9A
  370.             1F 05 90 02 23 06 51 A9 8B 03 3C A9 DC 37 01 8B 76 35 A8 8B 03 31 A8 23 08 5C A8 DC 37
  371.             01 8B 76 26 A9 DC 37 01 6E 76 C9 5A 14 A9 DC 37 01 6E 76 C9 5A 14 1A 09 02 1A 81 3D 02
  372.             1A 21 7F 01 A8 99 21 73 99 20 77 16 02 A9 84 0A 04 A8 85 0A 13 A9 85 0A 09 A8 85 0A 05
  373.             A9 A9 86 0B 5D 00 14 02 1A FE D8 9A 20 04 A9 5C 01 F8 9A 56 25 0C FE C9 9A 57 56 1A 80
  374.             63 9B 57 57 56 1A 80 64 02 1A 80 F6 9B 57 56 1A 16 9C 57 57 56 1A 17 E5 AA A9 32 01 26
  375.             16 02 1A 80 E0 9B 57 1B 66 CD 14 9C 57 57 1B 64 CD 14 A8 23 0D 0F AA CD 55 54 1C 20 AA
  376.             6B 0F A9 6B 0F 89 FF 17 A7 CD 55 1B 12 A9 8B 08 0E A7 8B 08 0A A9 6E 41 A8 6E 41 88 FE
  377.             FF BE 16 02 1A 80 A4 9A 57 1B FF 98 CD 14 9B 57 57 1B FF 96 CD 14 AA 23 0E FF 96 AA 9D
  378.             56 21 FF 90 9B 1F 0D 90 03 23 0E FF A1 90 03 9D 56 21 FF 9A 00 1A 80 76 9A 57 56 1A 80
  379.             53 9B 57 57 56 1A 80 54 02 1A 80 65 9B 57 56 1A 15 9C 57 57 56 1A 16 A9 A8 27 FD E0 16
  380.             02 1A 80 50 9B 57 1B 67 CD 14 9C 57 57 1B 65 98 14 A8 23 0D 0D AA CD 55 54 1C 12 AA A9
  381.             27 FD BF 1C 0B A7 CD 55 1B 06 A9 CD 55 54 1B 4D 16 02 1A 23 9A 57 1B FF A8 CD 14 9B 57
  382.             57 1B FF A6 98 14 AA 23 11 FF A6 AA 23 12 FF A1 9B 1F 06 90 03 23 11 FF B1 00 14 02 14
  383.             3F 02 19 05 90 02 9B 56 25 13 2A D4 1A 28 03 15 1A 24 03 16 1A 20 03 17 1A 1C 9B 57 56
  384.             1A 1D 9C 57 57 56 1A 1E AB 8B 05 2E 81 04 1A 2A AA 8B 05 31 82 03 1A 2D 00 76 9B 57 1B
  385.             5F CD 14 9C 57 57 1B 5D CD 14 90 05 03 18 55 14 60 60 9C 1F 08 83 04 04 8E 02 50 79 01
  386.             9B 1F 08 83 03 03 8E 02 4D 79 00 AB 8B 05 16 AA 8B 05 12 AB AB 8C 01 2D 0C AB AB 8D 01
  387.             2B 0E 8F 01 0B 8F 00 08 AE AD 37 03 89 B3 80 81 60 02 1A 80 8B 9F 57 56 1A 1D A0 57 57
  388.             56 1A 1E AE AA 8D 01 2E 80 64 1A 80 4F AD A9 32 01 2D 1A 80 59 9F 57 1B 5F CD 14 A0 57
  389.             57 1B 5D CD 14 90 09 03 18 55 14 9A 1F 0C 83 02 02 8F 00 08 A9 8B 05 02 81 02 79 04 99
  390.             1F 0C 83 01 01 8F 00 08 A8 8B 05 02 82 01 79 03 A9 23 0D 0E AE 8B 05 1C 8E 04 FF AD AE
  391.             AA 8D 01 30 12 A8 CD 55 1B 0D AD 8B 05 09 8E 03 FF A4 AD A9 32 01 2F 14 60 3F 02 19 0C
  392.             9F 1F 09 90 07 AD 37 03 88 B3 FF 95 5F 9B 54 14 3F 02 19 09
  393.            )
  394.       CANONICALIZE-TYPE MEMBER TYPEP NOT 2. OR AND DEFSTRUCT-DESCRIPTION STRUCTURE 0. CLOS::CLASS-P
  395.       CLOS::SUBCLASSP
  396.       #S(HASH-TABLE EQ (LONG-FLOAT . 272.) (DOUBLE-FLOAT . 272.) (SINGLE-FLOAT . 272.)
  397.          (SHORT-FLOAT . 272.) (FLOAT . 272.) (RATIONAL . 272.) (INTEGER . 272.) (REAL . 272.)
  398.          (COMPLEX . 230.) (SIMPLE-ARRAY . 101.) (ARRAY . 101.)
  399.         )
  400.       * ARRAY UPGRADED-ARRAY-ELEMENT-TYPE
  401.       #Y(LISP::SUBTYPEP-1 #20Y(02 00 00 00 00 03 A8 C0 55 1D 07 A9 A9 32 01 2B 19 03 19 03) *)
  402.       COMPLEX NUMBER
  403.       #S(HASH-TABLE EQ (LONG-FLOAT . 12.) (DOUBLE-FLOAT . 12.) (SINGLE-FLOAT . 12.)
  404.          (SHORT-FLOAT . 12.) (FLOAT . 8.) (RATIONAL . 8.) (INTEGER . 4.) (REAL . 1.)
  405.         )
  406.       (NUMBER) (RATIONAL REAL NUMBER) (REAL NUMBER) (FLOAT REAL NUMBER) INTEGER
  407.   )  )
  408. #Y(#:TOP-LEVEL-FORM-77 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SUBTYPE-INTEGER
  409.    REMOVE-OLD-DEFINITIONS
  410.    #Y(SUBTYPE-INTEGER
  411.       #240Y(01 00 00 00 00 02 A8 2E 00 F7 20 0D A8 5C 01 F7 90 01 23 04 80 9E 00 19 02 99 56 25 01
  412.             72 00 19 06 D7 D7 91 03 5F A8 88 92 80 57 83 01 00 14 8B 09 6C AA A8 7E 01 32 03 A9 A8
  413.             7E 01 31 02 7F 01 1A 64 D7 D7 91 03 5F 1A 35 00 19 08 C3 1A 1C C3 1A 27 83 01 00 14 27
  414.             FF AD 41 02 8F 01 6B AC 23 03 6A A8 23 03 66 AC A9 32 01 32 FB AB 23 03 5F A7 23 03 5B
  415.             AB A8 32 01 31 FA 16 02 7F 01 A8 89 92 50 AA 9B 1A 15 91 01 5F A8 88 92 19 83 01 00 14
  416.             27 FF 72 41 02 8F 01 07 14 99 14 3F 02 19 06 16 02 7F 01 1A 63 00 19 04 99 57 56 1A 0B
  417.             9A 57 57 56 1A 0C 99 57 1B 71 C3 14 9A 57 57 1B 6F C3 14 99 1F 09 83 01 01 14 8B 05 02
  418.             81 01 98 1F 09 83 00 00 14 8B 05 02 82 00 A8 8B 05 0D A7 8B 05 09 A8 A8 8C 01 2F 03 C2
  419.             F7 F6 A8 A8 3F 02 19 04
  420.            )
  421.       CANONICALIZE-TYPE #S(HASH-TABLE EQ (AND . 105.) (OR . 37.) (MEMBER . 4.)) 0. * INTEGER
  422.   )  )